home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / new_file / programm / gemfsc19 / gemfsc19.lzh / GEMFUNCS / RSCSSTR.C < prev    next >
Encoding:
C/C++ Source or Header  |  1993-05-11  |  742 b   |  31 lines
  1. /**************************************************************************
  2.  * RSCSSTR.C - Set pointers to object strings from within a tree.
  3.  *************************************************************************/
  4.  
  5. #include "gemfintl.h"
  6.  
  7. #ifdef GEMFAST_PROTOS
  8.   void rsc_sstrings(OBJECT *thetree, int object, char *pstr, ...)
  9. #else
  10.   void rsc_sstrings(thetree, object, pstr)
  11.     OBJECT *thetree;
  12.     int    object;
  13.     char   *pstr;
  14. #endif
  15. {
  16.     register OBJECT *ptree;
  17.     register char  **ppstr;
  18.     va_list          args;
  19.  
  20.     ptree = thetree;
  21.     va_start(args, pstr);
  22.     while (object >= 0) {
  23.         ppstr  = obj_ppstring(&ptree[object]);
  24.         *ppstr = pstr;
  25.         object = va_arg(args, int);
  26.         pstr   = va_arg(args, char *);
  27.     }
  28.     va_end(args);
  29. }
  30.  
  31.